Public Class frmPWD

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub NumberKeyPad1_UserKeyPressed(ByVal sender As System.Object, ByVal e As VINAPOS.KeyboardClassLibrarySmall.KeyboardEventArgs) Handles NumberKeyPad1.UserKeyPressed
        txtNumber.Focus()
        SendKeys.Send(e.KeyboardKeyPressed)
    End Sub


    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim str As String = CStr(Now.Year) + CStr(Now.Month) + CStr(Now.Day)
        If Me.txtNumber.Text = str Then
            Me.Close()
            Dim frm As New frmCONFIGURATION
            frm.ShowDialog()
        Else
            SystemFunction.ShowMessageForm("INVALID PASSWORD!", "")
        End If
    End Sub
End Class